home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00080_Data Entry screen.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  2.7 KB  |  93 lines
  1. on mouseUp
  2.   global gPlayerGender, gGenderMishaps, gNameChosen, gNameEasterEgg
  3.   if voidp(gPlayerGender) then
  4.     gGenderMishaps = gGenderMishaps + 1
  5.     case gGenderMishaps of
  6.       1:
  7.         vo = "A06"
  8.       2:
  9.         vo = "A03"
  10.       3:
  11.         vo = randomFromList(["A05", "A07"])
  12.       4:
  13.         vo = "A04"
  14.       5:
  15.         vo = "A01"
  16.       otherwise:
  17.         vo = "A03"
  18.     end case
  19.     managerVO(vo, 0, 0, 1)
  20.     stopEvent()
  21.     exit
  22.   end if
  23.   userName = trimSpaces(member("Name field").text)
  24.   if userName = EMPTY then
  25.     managerVO(randomFromList(["B01", "B02", "B03", "B04", "B05"]))
  26.     stopEvent()
  27.     sprite(132).member.text = SPACE
  28.     the keyboardFocusSprite = 132
  29.     hilite char 1 of field the member of sprite(132)
  30.     exit
  31.   else
  32.     gNameChosen = 1
  33.   end if
  34.   if gNameEasterEgg then
  35.     exit
  36.   end if
  37.   gNameEasterEgg = 1
  38.   case userName of
  39.     "Zachary Aaron Epstein", "Zoe Nadya Epstein", "Ariel Boston Epstein", "Michele Frances Sweeney":
  40.       MUIalert("I love you" && word 1 of userName & "!")
  41.     "John Cutler":
  42.       if gPlayerGender = #female then
  43.         MUIalert("Your Mom called to tell you to go the dentist, John.")
  44.       else
  45.         MUIalert("Your Dad called to tell you to get a real job.")
  46.       end if
  47.     "Joel Hamburger":
  48.       MUIalert("How's the studio coming, Joel?")
  49.     "Euralis":
  50.       MUIalert("You're Alice?")
  51.     "Eduardo Carrocio":
  52.       MUIalert("Are you a bartender or a matador?")
  53.     "Buck Naked":
  54.       MUIalert("What are you, a porn star?")
  55.     "Asa Phelps":
  56.       MUIalert("Asa Phelps is dead.")
  57.     "Ed Vandalay":
  58.       MUIalert("So you want to be my latex salesman?")
  59.     "Tipsy McStagger":
  60.       MUIalert("Sorry, we don't have enough Krusty Cough Syrup left for a Flaming Moe")
  61.     "Sam Malone":
  62.       MUIalert("I thought you were supposed to be on the wagon?")
  63.     "Bob Sackamano":
  64.       MUIalert("Kramer's friend?")
  65.     "Neo":
  66.       MUIalert("Keanu Can't Act.")
  67.     "Morpheus":
  68.       MUIalert("What is the Matrix?")
  69.     "Vincent Van Gogh":
  70.       MUIalert("Starry, starry night, wouldn't you say?")
  71.     "Bruce Alan Epstein":
  72.       MUIalert("Go home and get some sleep, Bruce.")
  73.     "William Jefferson Clinton III":
  74.       MUIalert("Welcome to the bar Mr. President. Senator Kennedy is in the back.")
  75.     "Hillary Clinton":
  76.       MUIalert("Sorry, Chelsea left an hour ago.")
  77.     "Monica Lewinsky":
  78.       if gPlayerGender = #male then
  79.         MUIalert("Lose the black beret, honey.")
  80.       end if
  81.     "J. Edgar Hoover":
  82.       if gPlayerGender = #female then
  83.         MUIalert("I don't think so.")
  84.       end if
  85.     "Troy":
  86.       if gPlayerGender = #female then
  87.         MUIalert("You go girl.")
  88.       end if
  89.     otherwise:
  90.       gNameEasterEgg = 0
  91.   end case
  92. end
  93.